Лабораторная работа № 2

Задание 2

Разработать программу, изменяющую размер шрифта в текстовом поле(см. файл TextSize.exe).

Этапы работы (после каждого этапа запускайте проект, чтобы увидеть результат):

1. Создайте папку Размер. Сохраните файлы в созданной папке следующим образом: модуль - FormSize.pas, проект - Size.dpr .

2. Задайте свойства формы согласно таблице:

Свойство	Значение	Примечание
Name	fmSize	Имя
Caption	Размер	Надпись в строке заголовка
Width	по желанию	Ширина
Height	по желанию	Высота
Position	poScreenCenter	Размещается по центру экрана

3. Разместите на форме компонент Memo. Задайте ему имя - mmText. В свойстве Lines нажмите на  кнопку с многоточием и в появившемся окне удалите все содержимое. В свойстве Font.Size (размер шрифта) установите значение 10.

4. Разместите на форме компонент Label. Задайте ему имя - lbSize. В свойстве Caption - Размер шрифта.

5. Разместите на форме компонент ComboBox. Задайте ему имя - cmbSize. В свойстве Items нажмите на  кнопку с многоточием и в появившемся окне введите значения размеров шрифтов от 10 до 50 с шагом 5 (см. рис.). В свойстве ItemsIndex задайте значение 0, чтобы по умолчанию был выбран первый размер шрифта.

6. Выполните двойной щелчок по объекту cmbSize, чтобы создать метод для события выбора элемента из списка (т.е. выбора размера шрифта). Данный метод будет соответствовать событию OnChange. В появившейся процедуре наберите следующий текст:

 

 

 

 

 

 

7. Проверьте работу приложения: наберите текст в окне и поменяйте размер шрифта.

 

Рис. 1